inst/developer/tests to finish/test_umxModify.r

In tbates/umx: Structural Equation Modeling and Twin Modeling in R

# library(testthat)
# library(umx)
# test_file("~/bin/umx/tests/testthat/test_umxModify.r") 
# 
# test_package("umx")
# TODO get tests for umxRun!
# 2. [] means
# 1. [] no means
# 3. [] run more than once
# 3. [] timing for hessian?

require(OpenMx)
data(demoOneFactor)
latents  = c("g")
manifests = names(demoOneFactor)
m1 <- umxRAM("One Factor", data = mxData(cov(demoOneFactor), type = "cov", numObs = 500),
	umxPath(from = latents, to = manifests),
	umxPath(var = manifests),
	umxPath(var = latents, fixedAt = 1)
)

test_that("umxMody and umxReRun work", {
	m2 = umxModify(m1, update = "g_to_x1", name = "drop_X1", comparison = TRUE)
	m3 = umxReRun(m1 , update = "g_to_x1", name = "drop_X1", comparison = TRUE)
	expect_is(m1, "MxModel")
	expect_is(m2, "MxModel")
	expect_is(m3, "MxModel")
})